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BBBBBBBB AAMAAR SSSSSSSS PPPPPPPP 000000 WW WwW DDDDDDDD RRRRRRRR 
BBBBBBBB ARAARA SSSSSSSS_ PPPPPPPP 000000 WW Ww DDDDDDDD RRRRRRRR 

8B AA SS PP PP 00 00 WW Ww OD DD RR RR 

BB AA AA SS PP PP 00 00 WW Ww OD DD RR RR 
BB BB AA AA SS PP PP 00 00 WwW Ww DD DD RR RR 

BB AA SS PP PP 00 00 WW Ww OD DD RR 

BBB AA AB SSSSSS PPPPPPPP 00 00 WW Ww DD DD RRRRRRRR 
BBBBBBBB AA AA SSSSSS PPPPPPPP 00 00 WwW Ww ODD DD RRRRRRRR 
AAAAAAAAA SS PP 00 00 WW WW WwW DD DD RR RR 

BB BB AAAAAAAAAA SS PP 00 00 WW WW Ww DD DD RR RR 
BB BB AA oa SS PP 00 00 WWWWw wWwWWw DD DD RR RR cece 
6B AA AA SS PP 00 00 WWwWW WWWw DD DD RR RR cece 
BBBBBBBB Ab AA SSSSSSSS PP 000000 ‘ala! Ww DDDDDDDD RR RR eeee 
BBBBBBBB AA AA SSSSSSSS PP 000000 wie Ww DDDDDDDD RR RR cece 
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66-SEP-1984 10:34:04 ([BASRTL.SRCIBASPOWDR.MAR; 1 (1) 
-TITLE BASSPOWDR 3; BASIC double ** float rout ing 
IDENT /1-001/ ; File: BASPOWDR.MAR Edit:PLL1001 


PARRAARAAAAAAAASAALALAALALAA EAA AAR AAS ALES A EERE ALAA REESE ESE S ESAS RRR E EA SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


had tr 
:® ® 
*® * 
:® ® 
:@ ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER  * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
:®@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
:® TRANSFERRED. ‘ 
: * 
;*# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
$# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:® CORPORATION. ° 
ef ® 
:® ® 
:® * 
:* ® 
*® * 
® * 
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aoe 
3; FACILITY: Basic Support Library 
900 > ABSTRACT: 
0000 : This module contains entry points to suppers exponentiation 
3008 3 (** or *) in BASIC-PLUS-2 for DOUBLE * 
si 4 : ENVIRONMENT: User Mode, AST Reentrant 
0000 io 
it 3; AUTHOR: P. Levesque , CREATION DATE: 5-Oct-81 
$000 > MODIFIED BY: 
0000 3 
0000 ; 1-001 = Original 
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BECLARATIONS Pa} 986 15; 32 ‘$e BASRTL.SRCIJBASPOWDR. MAR:1 3) 

+ ¢$ -SBTTL DECLARATIONS 

09 48 ; INCLUDE FILES: 

0 49 ; 

000 0 

000 . 2 
44H ¢ ; EXTERNAL DECLARATIONS: 
0000 4 -DSABL SBL ; Prevent undeclared 
44 5 3; symbols from being 

44 § 3 automatically global. 
$090 25 -EXTRN OTSSPOWDR ; OTS$ double ** float exponentiation 
0000 59 eEXTRN OTSSPOWDJ ; OTS$ double ** int exponentation 
0000 60 -EXTRN BASSK_DIVBY_ZER 3; Divide by Zero 
0000 6) ~EXTRN BASS$K~ ILLARGLOG ; Illegal argument in LOG 
0000 $6 -EXTRN BASSSSTOP ; Error reporting routine 
0000 6 
0000 64 ; 
0000 65 ; MACROS: 
0000 66 ; 
0000 67 
0000 68 ; 
0000 69 ; EQUATED SYMBOLS: 
0000 70 ; 
0000 71 
0000 ie; 3 
0000 73 ; OWN STORAGE: 
0000 74; 
0000 75 
0000 76 ; 
4464 as 3; PSECT DECLARATIONS: 

00000000 lal -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, 

aia 80 EXE, RD, NOWRT. LONG 


r 


BASSPOWDR . B 
1-001 BAS 


- BASIC double ** float BASR R.MAR;1 
se -SBTTL BASSPOWDR = BASIC double ** float 
FUNCTIONAL DESCRIPTION: 


This routine takes BASE ** EXP, using the following table 
for unusual cases: 


B 11 
ouble ** float routine ot eb $339: 08 AX/VMS Macro V04-00 Page ; 
6-SEP-1984 7354:04 TL. SRC JBASPOWD (3) 
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BASE > 0 Call OTS$POWDR, normal case. 

BASE = 0, EXP > 0 Return 0.0. 

BASE = 0, EXP = 0 Return 1.0, 

BASE = 0, EXP < 0 Error: divide by zero 

BASE < 8 EXP even integer Call OTS$POWDJ with -BASE 

BASE < 0, EXP odd integer Call OTS$POWDJ with -BASE, negate result 
BASE < 0, EXP not integer Error: illegal argument in LOG. 


; CALLING SEQUENCE: 
CALL result.wd.v = BASSPOWDR (base.rd.v, exponent.rf.v) 
; INPUT PARAMETERS: 


base = 4 
exponent = 12 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


double result of exponentiation 
SIDE EFFECTS: 


Will signal Divide By Zero or Illegal argument in LOG if its 
arguments are bad, and OTSSPOWDR and OTS$POWDJ may also signal. 


BASSPOWDR: : «MASK OTSSPOWDR Entry point 

Since this routine uses no 
registers and usually transfers 
ontrol to OTSSPOWDR, we copy 
ts register save mask and then 

JMP past its save mask and only 

save the registers once 

Test base relationship to zero 
If base leq 0, do case analysis 


AWIAIWIAWIIWII NIGER RIPUNDIPINIPUDIPIDS 2 OOO "DOC OOCOOOCOCOOCOCOOUOOOOOOONO 
DONA NEW OOOO UE WIN S(O OONAU EWN OO ONAU EWN 0 OONAUE WN O OONAOUE WW 


me a ed ed ed dd ed od od = = = = = = = 
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00 

00 

00 

00 

00 

0 

04 aC 73 0 
06 15 0 
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00000002"GF 17 0007 140 JMP G*OTSSPOWDR+2 ; Transfer control to the OTS$ 
4 131 ce 3; routine to do exponentiation 
sit 128 : Come here if the base is less than or equal to zero. We must filter 
it Vee ; several special cases, as described above. 
2E 13 000D 146 is: BEQL «86 48 : Branch if base = 0 
50 50 08 00 OC AC 54 Boy 14 EMODF  mcteateatalt #0, #1, RO, RO 
1A 12 4 138 BNEQ $ ; Branch if exponent is not integer 
01 150 ; The base is less than zero and the exponent is an integer. 
01 13) :; BASIC defines py as oom the same way as if an integer was 
01 1 § 3; in the expression (making a floating variable which happens to 
S33 137 ; contain an integer value equivalent to an integer variable). 
50 OC AC 4A $618 155 ° CVTFL exponent(AP), RO ; Convert exponent to integer 
50 DD OOI1C 156 PUSHL RO ; Save for even/odd test 
50 dD 493 157 PUSHL RO ; Stack as parameter to OTS$POWDJ 
7E 04 AG 72 002 158 MNEGD base(AP), -(SP) 3; Stack -base also 
00000000'"GF 0 FB 0024 £159 CALLS #3, G*OTSSPOWDJ ; Call integer power routines 
03 BE 9 002B 160 BLBC (SP)+,2$ 3; Branch if exponent even 
50 650 2 Boge 161 MNEGD RO, RO 3; Exponent odd, negate the result 
04 Ones 16¢ es: RET 3; and return with it. 
0032 164 : Come here if the base is less than zero but the exponent is not 
0032 192 3 an integer. BASIC defines this as an error. 
7E O0'8F 9A 0032 167 38: MOVZBL #BASSK_ILLARGLOG, -(SP) ; Illegal Argument in LOG 
00000000'GF 01 FB Bose 198 z CALLS #1, G*BAS$SSTOP 3; Never return. 
003D 170 : Come here if the base is equal to zero. The value we return depends 
eH fa! 3; upon the sign of the exponent. 
Oc AC 53 003D 158 is: TSTF exponent (AP) ; Test the exponent against zero 
09 19 0040 174 BLSS 6$ : Branch if exponent [ss 0 
03 13 Bnet 123 . BEQL 5$ :; Branch if exponent is 0 
0044 177 : Come here if the base is zero and the exponent is greater than zero. 
0044 178 ; BASIC defines this as 0.0. 
0044 179 ;- 
50 7C 0044 #180 CLRD RO ; RO, R1 = 0.0 
04 ane6 : 1 ‘ RET ; Return to caller 
Bee) 1 § : Come here if the base is zero and the exponent is zero. BASIC defines 
47 184; this as 1.0. 
047 133 -< 
50 08 70 0047 1 6 S$: MOVD #1, RO : RO, RI = 1.0 
04 en 188 ‘ RET ; Return to caller. 
048 189 : Come here if the base is zero and the exponent is less than zero. 
Oheg 139 : BASIC defines this as an error. 
7E 00°8F 9A 0048 198 és: MOVZBL M#BASSK_DIVBY_ZER, -(SP) ; Divide by zero 
00000000'GF 01 FB 036 132 CALLS #1, G*BASS$STOP ; Report error, never return. 
56195 * END 


ea CS ae ES lene ec Ft er a ean RD 


ae 


— 


BASSPOWDR 


Symbol table 
BASSSSTOP eereeeee = YX 8 00 
BASSK_DIVBY ZER eeeeere x 4 
BASSK-ILLARGLOG eeeeeee § Xx 
BASSPOWDR 44444 RG 01 
BASE = 00000004 
EXPONENT = 0000000C 
OTSSPOWDJ eeertene x 00 
OTSSPOWDR cereneee x 00 
+ 
! 
+ 
PSECT name Allocation 
ABS 00000000 0. 
BASSCODE 00000056 6. 
Phase Page faults CPU Time 
Initialization 29 00:00:00. 
Command processing 104 00:00:00. 
Pass 1 72 00:00:00. 
Symbol table sort 0 00:00:00. 
Pass 2 47 00:00:00. 
Symbol table output 3 00:00:00. 
Psect synopsis output 2 00:00:00. 
Cross-reference output 0 00:00:00. 
Assembler run totals 259 00:00:01. 


The working set Limit was 900 
2216 bytes (5 pages) of virtua 
There were 1 


195 source Lines were read in Pass 1, 
0 pages of virtual memory were used to define 


Macro Library name 


D 11 
; BASIC double ** float routine " 


ages. 
onere were used to buffer the intermediate code. 


“$255$DUA28: CSYSLIBIJSTARLET.MLB;2 
O GETS were required to define 0 macros. 


producin 


fermen annr amas 


07 00:00:00.40 
43 00:00:01.94 
46 00:00:01.45 
01 00:00:00.01 
38 00:00:01.08 
01 00:00:00.01 
02 00:00:00.07 
00 00:00:00.00 
39 00:00:04.96 


Mae wae mean eae o-+ 
Psect synopsis ! 

PSECT _No. Attributes 
» 00 ¢ 0.) NOPIC  USR 


») O1¢ 1.) PIC  USR 


oes 


eer e en mm nero er mene ewe moan + 


cros. 


HOES Ke BE EDO MOORE Teme ey 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1IS$:BASPOWDR/OBJ=O0BJ$:BASPOWDR MSRC$:BASPOWDR/UPDATE=(ENH$:BASPOWDR) 


S 
S 


EP= 
EP 


CON 
CON 


71986 {0:36:06 


ABS LCL 
REL LCL 


pages of symbol table space ah locates to hold 8 non-local and 6 local symbols. 
; meron records in Pass 2. 


AX/VMS 4 cro 
BASRTL.SR 


NOSHR NOEXE NORD 
SHR EXE RD 


04-00 P 
C18 BASPOWDR .MAR; 1 oe 3) 


NOWRT NOVEC BYTE 
NOWRT NOVEC LONG 
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